home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1986 August
/
64er_Magazin_86-08_1986_Markt__Technik_de_Side_A.d64
/
demo modul34
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
355b
|
18 lines
100 rem text in dreieckform ausgeben
110 do
120 : print "bitte text eingeben" : input x$ : print
130 : n=1 : q=1
140 : do while n>0
150 : print left$(x$,n)
160 : n=n+q
170 : if n=len(x$) then q=-1
180 : loop
190 : print
200 : do
210 : input "nochmal (j/n) ";a$
220 : exit if a$="j" or a$="n"
230 : print "falsche eingabe"
240 : loop
250 loop until a$="n"
260 end